home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #264 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #264 (1993)(Rhein-Sieg-Soft).adf / KKK-rel-GFA / CAS9.GFA (.txt) < prev    next >
GFA-BASIC Amiga  |  1993-10-11  |  36KB  |  457 lines
  1. GFA-AMIGAB
  2. VERSION
  3. FUELL
  4. LOESCH
  5. SUFFIX
  6. INITPRINTER
  7. CONDON
  8. CONDOFF
  9. NLQON
  10. NLQOFF
  11. UNDLNON
  12. UNDLNOFF
  13. NOMARGIN
  14. CHECK
  15. WINTEXT
  16. FEHLER
  17. VERZNAME
  18. DATEIGROESSE
  19. MENUE
  20. DIRNAME
  21. VERZNAME
  22. DIRSIZE
  23. DIRBLKS
  24. VERZSIZE
  25. VERZBLKS
  26. FARBWERT
  27. FARBZAHL
  28. SATZLAENGE
  29. ABBRUCH
  30. SATZNR
  31. DATEIGROESSE
  32. COUNTER
  33. GESPEICHERT
  34. RELOFFEN
  35. SPALTE
  36. DOPPEL
  37. SEARCH
  38. CHECK
  39. DIRNAME
  40. RECORD
  41. OPENREQ
  42. ZEILEN
  43. SORT1
  44. SORT2
  45. FELDY
  46. FELDX
  47. DIMFLAG
  48. TABELLENANFANG
  49. AKTIVFARBE
  50. ZFARBE
  51. BUTTON
  52. TEXT4
  53. AGAIN
  54. EINRICHTEN
  55. ENDE.ST
  56. EINGABE
  57. EINGABE2
  58. DATAUS
  59. NEIN1
  60. NEIN2
  61. NEIN3
  62. FARBE
  63. ENDE.KUVERTSUCHEN
  64. KUVERTSUCHEN
  65. NEINL
  66. ENDE.FETTDRUCK
  67. ENDE.DOPPELDRUCK
  68. ENDE.AENDERN
  69. LADEN
  70. LWEITER
  71. DOPEN
  72. ENDE.SAB    ENDE.SAUF
  73. ENDE.PAINT4
  74. ENDE.PTEXT
  75. ENDE.SCHLIESSEN
  76. DATEILOESCHEN    ENDE.MOD7
  77. JAENDE
  78. NEINENDE
  79. DRUCKEN
  80. MODUS6
  81. DATEI
  82. DFORMAT
  83. KDRUCK
  84. FEHLER
  85. WA5    FEHLEREND
  86. ENDESUBR
  87. GETKEY
  88. ENDE.INTEXT
  89. RECHTS
  90. LINKS
  91. ENDE.GETLINE
  92. FARBSPEICHER
  93. MCHECK
  94. ENDE.FARBWAHL
  95. GRUNDWERTE
  96. GRUNDDATEN
  97. EINR    ENDE.EINR
  98. DATENAUS
  99. INTEXT
  100. LLENDE    ENDE.FETT
  101. ENDE.DOPPEL
  102. ENDE.DATEILOESCHEN
  103. ENDE.L
  104. ENDE.LL    ENDE.ENDE
  105. ENDE.DRUCKEN
  106. ENDE.KUVERT
  107. PWEITER    EXITFUNC3
  108. LENDE
  109. FEHLER
  110. CONTROLC
  111. TEXT1
  112. TITEL
  113. SETTITLE
  114. GETDIR
  115. AUSWAHL    MENUESAUS
  116. RETURN_
  117. MENUESAN
  118. DATEINAMEEINGABE
  119. OPENWIN4
  120. GETLINE
  121. INFO    KOPFZEILE
  122. LOESCHEN
  123. RAHMEN
  124. LABEL650    DATEITEST    REQUESTER
  125. OEFFNEN2
  126. INTEXT
  127. PAINT3
  128. SATZSCHREIBEN
  129. KUVERTSUCHEN
  130. MODUSSETZEN
  131. KUVERTLOESCHEN
  132. AENDERN
  133. KUVERT    FETTDRUCK
  134. DOPPELDRUCK
  135. PAINT4
  136. PTEXT
  137. SCHLIESSEN
  138. MOD7    OPENWIN11
  139. MODUS6
  140. SORTDIR
  141. FARBWAHL
  142. CURPOS
  143. REGLERFELD
  144. FARBFELDWAHL
  145. REGELN
  146. REGLER1
  147. REGLER2
  148. DOS.LIB
  149. INTUITION.LIB
  150. MENAUS
  151. EINRICHTEN
  152. LADEN
  153. DATEILOESCHEN
  154. EINGABE
  155. FARBE
  156. DATEI
  157. DFORMAT
  158. KDRUCK
  159. PCOLOR
  160. MENESAN
  161. DATENAUS
  162. MENUEASN
  163. ENDE.L
  164. CTRL.SHIFT.ALT
  165. ENDE.KUVERT
  166. CLOSEDATEI
  167. UNLOCK
  168. EXAMINE
  169. EXNEXT
  170. FREEREMEMBER
  171. SETWINDOWTITLES
  172. ACTIVATEWINDOW
  173. DIRSIZE
  174. DIRBLKS
  175. LAENGE
  176. Kompaktkassettenkuvert.REL,Version 2.18b (cas9)
  177. Lothar Berndt,4240 Emmerich 1, 8/1992
  178. 0Kompaktkassettenkuvert.REL, Version 2.18b (cas9)FF
  179. Letzte 
  180. nderung am 22.08.1993F
  181. KKK-BildschirmF
  182. KKK-Schalter!
  183. KKK-BildschirmF
  184.  Anzahl der Eintr
  185. ge im Verzeichnis
  186.  Anzahl der Felder-1, bei Seite A 14, bei Seite B 14
  187.  Anzahl der Datens
  188. Nr.:F
  189. TA:FF
  190. NR:FF
  191. .KKK_RELFF
  192. ANFANGF
  193. ENDEF
  194. Maximale Anzahl erreichtF
  195. Daten ausgeben Fe
  196.  Kompaktkassetenkuvert-BildschirmF
  197. Das geht nicht!Fu
  198. Sicher?F 
  199. Datei 
  200. ffnen oder einrichtenF
  201. %Datei einrichten, Dateinamen eingebenF
  202. Datensatz eingeben Ft
  203. Datensatz ausgeben Ft
  204. Datei 
  205. ffnenF
  206. Datei von Diskette l
  207. schenF
  208. BeendenFn
  209. [4wFF
  210. [3wFF
  211. [4mFF
  212. [24mF
  213. ProjektFF
  214. Einrichten F
  215. ffnen     F
  216. Schlie
  217. en  F
  218. schen    F
  219. VerzeichnisF
  220. Ende       F
  221.     DatensatzF 
  222.     Eingeben F 
  223.     Farbe    F 
  224. InfoF
  225. ProgrammF
  226. Datei   F
  227. Format  F
  228. Druck   F
  229. Tasten  F
  230. Verzeichnis lesen!
  231. DatenF
  232. Kompaktkassetten-KuvertF
  233.  Lothar Berndt  1993FF
  234. NDERNF
  235. ANFANGF
  236. <<<FN
  237. >>>FN
  238. ENDEF
  239. SCHENF
  240. GEHE NACH NUMMERF
  241. EIN KUVERT DRUCKENF
  242.     FETTDRUCKF 
  243. DOPPELDRUCKFR
  244. Dateinamen eingeben: F
  245. Daten/
  246.  Rahmen um Cursor
  247. ABBRUCHF"
  248. InfoF
  249. Kuvertnummer:F
  250. Frei BASIC:"FF
  251. Frei System:"F
  252. Datens. belegt:"FF
  253. Datens. frei:"FF
  254. Dateiname: "FF
  255. Nr.:FF
  256.     FF
  257. Dateiname: ";
  258. Daten/
  259. Die Datei existiert bereits!FF
  260. berschreiben?
  261.   NEIN F
  262.     Alles OK?
  263.   NEIN F
  264. Kuvertnummer:"FF
  265. Frei BASIC:"FF
  266. Frei System:"F
  267. Datens. belegt:"FF
  268. Datens. frei:"FF
  269. Dateiname: "FF
  270. Nr.:FF
  271. ---------------------- Kopf
  272.         FF
  273. Chrome  FF
  274. DOLBY C FF
  275. 90      FF
  276. ---------------- SeiteA
  277. ---------------- SeiteB
  278. ------------------------
  279. Eingaben OK?F
  280. NEINF
  281. ABBRUCHF*
  282. NEINF
  283. ABBRUCHF
  284. Kuvert suchen!
  285. Kuvertnummer eingeben: F
  286. Nur Kuvert "FF
  287. 1 bis "7
  288. Kuvert l
  289. schen!
  290. Kuvert l
  291. schen?
  292. ABBRUCH Fw
  293. Diese Funktion istFF
  294. noch nichtFF
  295. implementiert!FF
  296. %~6F<
  297.  ANFANG
  298.  ENDE
  299. Fettdruck?
  300.   NEIN F
  301. Doppeldruck?
  302.   NEIN Ft
  303. Kuvert 
  304. ndern!
  305. ------------------------- Kopf
  306. ---------------------------
  307. -------------------- Seite A
  308. -------------------- Seite B
  309. ---------------------------
  310. Kuvert ge
  311. ndertF
  312. DateinamenFF
  313. BytesF
  314. ckeFF
  315. ffnenFF
  316. AbbruchF
  317. Verzeichnis lesen!
  318. DatenF
  319.  scroll ab
  320.  scroll auf
  321.  Datei 
  322. ffnen
  323.  Abbruch
  324.  Print Text in Req
  325. Daten/
  326. ffnenF
  327. AbbruchF
  328. Schlie
  329. e Datei!
  330. Dateinamen eingeben:FF
  331. Daten/
  332. Datei:FF
  333.  ist gel
  334. scht.FF
  335. DatenF
  336. Linke Maustaste dr
  337. ckenF
  338. ZUM MEN
  339.   NEIN F}
  340. KKK-MENUE.GFAF
  341. Ein Kuvert drucken!
  342. Drucker OK?
  343. ABBRUCH F
  344. Drucke Kuvert"FF
  345. prt:F
  346.  Fettdruck ein
  347.  Fettdruck aus
  348. [22mFF
  349.  Doppeldruck ein
  350.  Doppeldruck aus
  351. -------------------------------------------------- R
  352. ckseite
  353. | Datei:
  354. -------------------------------------------------- Schmalseite (vorne)
  355. | Nr: "
  356. |  A: "
  357.   |FF
  358. |  B: "
  359. --------------------------------------------------
  360. | "FF
  361.      "F
  362.      "F
  363.      "F
  364.      "F
  365. | A:"
  366. -------------------------------------------------- Seite A/B Titel
  367. --------------------------------------------------
  368. Das ProgrammFF
  369. " Von Lothar Berndt, 46446 EmmerichFF
  370. , Version in Amigabasic erstellt im Jahr 1990FF
  371. ' In GFABASIC konvertiert im Jahr 8/1992F
  372.  Datens
  373. tze pro DateiF
  374.  28 Titel pro KuvertFF
  375.  Feldl
  376. nge 31 Zeichen"FF
  377. DateiF
  378. Aktuelle Datei..............: ";
  379. Dateigr
  380. e in Bytes.........:"7
  381. Feie Bytes Systemspeicher...:"7
  382. Anzahl Datens
  383. tze ..........:"7
  384. Anzahl Felder...............:"7
  385. Datensatzl
  386. nge..............:"7
  387. FormatFF
  388. Nr:                    "7
  389. ZeichenF
  390.  A:                   "7
  391. ZeichenF
  392.  B:                   "7
  393. ZeichenF
  394. !Nr., TA, NR, L
  395. N    je  8 ZeichenF
  396. !A: und B: Mitte     je 29 ZeichenF
  397. !Felder f
  398. r Titel    je 31 ZeichenF
  399. Kuvert druckenFF
  400. @ Vorgesehen  ist der Druck auf Einzelbl
  401. tter im  Format  DIN-A4.FF
  402. @ Vier Kassettenh
  403. llen passen auf ein DIN-A4-Blatt.  Auf die lin-FF
  404. @ ke Seite des Blattes werden zwei H
  405. llen untereinander gedruckt.FF
  406. @ Dann wird  durch  ein  FF (Form Feed) an den Drucker, das BlattFF
  407. @ ausgeworfen.  Um die anderen zwei H
  408. llen zu drucken,  dreht manFF
  409. @ das Blatt um 180
  410.  und steckt es erneut in den Drucker.  DruckenFF
  411. @ auf Endlospapier ist auch  m
  412. glich.  Um  Papier zu sparen, kannFF
  413. @ man nach dem drucken der H
  414. lfte,  das  Papier  abtrennen und umFF
  415. ) 180
  416.  gedreht, erneut durchlaufen lassen.F
  417. %Tastaturbelegung beim eingeben/
  418. ndernF
  419. 9 RETURN       = ein Feld tiefer, leere Felder  werden alsF
  420. 2                Leerfelder gesichert ( chr$(32) )!FF
  421. ' CURSORTASTEN = ab, auf, rechts, links.F
  422. 4 DEL          = l
  423. scht ein Zeichen unter dem Cursor,FF
  424. 7                nachfolgende Zeichen r
  425. cken nach links.F
  426. 5 BACKSPACE    = l
  427. scht ein Zeichen links  vom Cursor,F
  428. 7                nachfolgende Zeichen r
  429. cken nach links.F
  430. = F10          = l
  431. scht das aktuelle Feld (wo der Cursor ist).F
  432. = ESC          = erzwingt den Abbruch der Eingabe im aktuellenF
  433. :                Feld. Da die Felder vorher mit LeerzeichenFF
  434. 7                gef
  435. llt wurden, werden leere Felder alsF
  436. 7                Leerfelder gesichert (wie bei RETURN_)!F
  437. ? SPACE        = schiebt den Text rechts vom Cursor nach rechts.F
  438. ? LINKE MAUST. = positioniert den Cursor wo d. Mauszeiger steht."FF
  439. ! Es ist ein Fehler aufgetreten! |F
  440.  OK | OK | OK FF
  441. /Fataler Fehler, das Programm wird neu gestartetF
  442. WOLLEN SIE BEENDEN?
  443.   NEIN F
  444. --------------------------
  445. Unterprogramme
  446. --------------------------
  447.     RequesterF
  448.  NEIN
  449. Anzahl Zeilen-1,Spalte,Zeile,Cursorfarbe,Hintergrundf.,laenge(),dat$()
  450. Spalte,Zeile,AnzahlZeichen,Cursorfarbe,Hintergrundfarbe,Text$
  451.  Klick in OK
  452.  Klick in Abbruch
  453. " JFb
  454.  rechts
  455.  links
  456. K  JF
  457.